home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / tbasmhlp.arc / SOURCE.ARC / FINDNEXT.ASM < prev    next >
Assembly Source File  |  1987-07-21  |  582b  |  21 lines
  1. ;FILE    :FINDNEXT.ASM
  2. ;USEAGE    :call findnext(ret%)
  3. ;RET% is TRUE (-1) if another file was found, FALSE(0) if not.
  4. ;FINDNEXT finds another file that fits the FINDFILE description, if it can.
  5.  
  6. findnext segment
  7. assume    cs:findnext
  8.     push    bp        ;Standard stuff.
  9.     mov    bp,sp
  10.     mov    ah,04fh        ;FINDNEXT spec.
  11.     xor    cx,cx        ;Return word. (set to false)
  12.     int    021h        ;MSDOS! Returns carry set if no file.
  13.     jc    noerr        ;No error! let's set it true.
  14.     dec    cx
  15. noerr:    les    di,[bp+06h]    ;address of integer variable
  16.     mov    es:[di],cx    ;Move result code.
  17.     pop    bp        ;Restore BP
  18. findnext ends
  19.     end
  20.     
  21.